Section 1.1

RecurrenceTable[{a[n+1]==1.004 a[n]-1135.68,a[0]==175000},
a,{n,0,240}]

To shorten the displayed output, you can use the Short command. See below.

RecurrenceTable[{a[n+1]==1.004 a[n]-1135.68,a[0]==175000},
a,{n,0,240}]//Short

Clear[a];
FullSimplify[RSolve[{a[n+1]==1.004 a[n]-1135.68,a[0]==175000},a[n],n]]